COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE
C00004 ENDMK
C⊗;
PRECEDE;
FUNC FUN.FUN[SCR,LCS];
COMMON TOOT;
PLAY;REVERB 0 63;
*
DUMMY 0;  < THIS IS A DUMMY!
P2 0;
P3 RHY/4////0;   <P3→P6 SET UP RHYTHMIC MOTIVES.
P4 RHY/16////-4/0;
P5 RHY/8/16// 8/16//-4/0;
P6 RHY/2/16////-4/0;  < 0 VALUE RHYTHM ENDS A MOTIVE.
P7 NO/C4/D/E/C/;   <P7→P10 SET UP NOTE MOTIVES.
P8 NO/G5/FS/F/E/R/;
P9 NO/C2/E/G/ C3/E/G/ R//FINE; < THE LONGEST MOTIVE HAS 'FINE'.
P10 SUBR NO/FS6/ EF/C/A5/FS/ R/;
END;
 
TOOT 0  60;
P2 SUBR 1 1 4.999;< RANDOM SELECTION OF ABOVE MOTIVES.
P3 SUBR 1 1 6.999;
P4 .7;
P5 F2;
P13 F5;
P12 .05;
END;